home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / jukebx02.dxr / 00031_Remove Records.ls < prev    next >
Encoding:
Text File  |  1996-12-09  |  2.3 KB  |  72 lines
  1. on removeRecord
  2.   global TrayNumber, Turntable, selection, Needle, recordFlag, record, OriginalNeedlePosition, OriginalRecordTrayHeight, OriginalTurntableHeight, buttonClicked, m, screen, ImageCounter, FirstTimeImage
  3.   if screen = 3 then
  4.     set the memberNum of sprite Turntable to the number of member "Turntable"
  5.     repeat with needlePosition = the locV of sprite record down to OriginalNeedlePosition
  6.       set the locV of sprite Needle to needlePosition
  7.       updateStage()
  8.       BubbleAnimation()
  9.       if screen = 3 then
  10.         hExit()
  11.         next repeat
  12.       end if
  13.       exit repeat
  14.     end repeat
  15.   end if
  16.   if screen = 3 then
  17.     repeat while the locV of sprite Turntable < (OriginalRecordTrayHeight - 20)
  18.       set the locV of sprite Turntable to the locV of sprite Turntable + 20
  19.       set the locV of sprite record to the locV of sprite Turntable
  20.       updateStage()
  21.       puppetSound(2, 151)
  22.       BubbleAnimation()
  23.       if screen = 3 then
  24.         hExit()
  25.         next repeat
  26.       end if
  27.       exit repeat
  28.     end repeat
  29.     set the locV of sprite Turntable to OriginalRecordTrayHeight
  30.     set the locV of sprite record to OriginalRecordTrayHeight
  31.     updateStage()
  32.   end if
  33.   if screen = 3 then
  34.     set the locH of sprite 36 to 2000
  35.     repeat with g = 37 to 44
  36.       set the locH of sprite g to 2000
  37.     end repeat
  38.     set the locH of sprite 48 to 2000
  39.     set ImageCounter to 0
  40.     set FirstTimeImage to 0
  41.     set the visible of sprite record to 0
  42.     repeat while the locV of sprite Turntable < (OriginalTurntableHeight - 20)
  43.       set the locV of sprite Turntable to the locV of sprite Turntable + 20
  44.       updateStage()
  45.       puppetSound(2, 151)
  46.       BubbleAnimation()
  47.       if screen = 3 then
  48.         hExit()
  49.         next repeat
  50.       end if
  51.       exit repeat
  52.     end repeat
  53.     set the locV of sprite Turntable to OriginalTurntableHeight
  54.     updateStage()
  55.   end if
  56.   if screen = 3 then
  57.     puppetSound(2, 150)
  58.     repeat with TrayPosition = the number of member "TraySwingEnd" down to the number of member "TraySwingStart"
  59.       set the memberNum of sprite TrayNumber to TrayPosition
  60.       updateStage()
  61.       BubbleAnimation()
  62.       if screen = 3 then
  63.         hExit()
  64.         next repeat
  65.       end if
  66.       exit repeat
  67.     end repeat
  68.     set recordFlag to 0
  69.     BubbleAnimation()
  70.   end if
  71. end
  72.